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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 
THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS50 TO TEST SUCCESSFUL 
RATION OF THE SASCEFC SYSTEM SERVICE. THE SERVICE IS INVOKED 
UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 
CESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 
OPERATION OF THE rg ee FOR EACH OF ITS ISSUANCES IS VERIFIED BY 
CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 


AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: DEC, 1977 
MODIFIED BY: 

VERSION 1.5 : 25-MAY-79 
; 01 LOI 10/11/79 Fixed bug caused by DIBSK_LENGTH change ACG052.RNO mem 
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SATSSS50 SATS SYSTEM SERVICE TESTS SASCEFS (SUCC 16-SEP-1984 00:56:45 VAX/VMS Macro V04- Pa 
9042000 DECLARATIONS Breer be barasio; FARCHES Bacto vOG— Oe ans POM cf, 
$ .SBTTL DECLARATIONS 
: 3 INCLUDE FILES: 
60 ° SPRVDEF : PRIVILEGE BIT DEFINITIONS 
61 SPHDDEF + PROCESS HEADER OFFSETS 
6¢ SPQLDEF + PROCESS QUOTA CODES 
63 SDIBDEF : DEVICE INFO BLOCK OFFSETS 
65 : MACROS: 
909 08 i 
68 + EQUATED SYMBOLS: 
09 50 
00 4 ; BIT NUMBERS FOR FLAGS CONTAINED IN "‘FLAGS'' BYTE: 
00000000 0000 ig Fig. V_CLAOTHEV = 0 ; ASCEFC ISSUED FOR CLUS A, OTHER E.F. GROUP 
00000001 0000 7% FLG-V“CLAPROC = 1 : ASCEFC ISSUED FOR CLUST 
0000 75 + ... EVENT FLAG GROUP 2 CREATED PROC 
00000002 0000 76 FLG_V_MKFORMED = 2 : CLUSTER A MASK HAS 
0000 = 77 : ... FORMED FOR THIS fest’ CASE 
0000 «78; 
0000 79 ; OWN STORAGE: 
0000 =s«80 : 
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WOO O00 0000000000 0000000000 
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SEP-1984 00: AX/VMS Macro V04- Page 3 SA 
SEP- =}382 8? 38:53 UETPSY.S Bees eay eso. MAR:1 . (1) vO 
OWRT,N XE.LONG 
C.<SATSSS ; TEST MODULE NAME 
1; <SATSSS TEST MODULE NAME DESCRIPTOR 
1,< SSASC! GU: tONDITIONS:> 
; FAO CTL STRING FOR MSG1 IN SUCCOMMON.MAR 
1,< *SSASC!42W: 'AS> 
: FAO CTL STRING FOR 363 IN SUCCOMMON.MAR 
1 .<SATSSS5 _CRE>’; CREATED PROCESS N 
1,<SATSSS50_CLA> , CLUSTER AN 
1. <SATSSS50-CLB> CLUSTER B NA mE 
1. <SYSTSTSRES: SeaTéut 4.EXE> ; IMAGE NAME FOR CREATED PROC 
CPUL 5 : INFINITE CPU 
BYTLM.512 : BYTE LIMIT FOR {BUFFERED 1/0 
FILLM.2 ; OPEN FILE COUNT LIMIT 
PGFLQUOTA,10 : PAGING FILE QUOTA 
PRCLM, + SUBPROCESS QUOTA 
TOELM, : TIMER QUEUE ENTRY QUOTA 
LISTEND + DEFINES END OF LIST 
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SATSSS5C SATS SYSTEM SERVICE TESTS SASCErE (SUCC 16-SEP-1984 00:56:45 VAX/VMS Macro V04- Page 4 
v042000 DECLARATIONS $73Eb=] o8e be £3563 UETPSY.SRCJ SAT 18550. MAR; 1 : (1) 
og 8 1 »PSECT RWDATA,RD,WRT /NOEXE ,LONG 
880000 1 ieee ~BLKQ 1 . en OF ve eee MASK (IN PHD) 
000000C 00 105 MBXCHA -BLKL 1 ; CHAN NO. FOR MAILBOX FOR poy Ug PROCESS 
C 104 MBXCHANINFO: ; CHANNEL INFO RETURNED BY GETCHN 
00 Shi 105 “Lone DIBSK_LENGTH 
° 14" Q01 1 § - ADDR .* 
Bae 14 «1 -BLKB DIBSK_LENGTH 
000008C pa 3 MBXUNIT: -BLKL 1 ; SAVE AREA FOR MAILBOX UNIT NUMBER 
C 109 MBXBUFF: STRING 0,120 ; MAILBOX BUFFER FOR CREATED PROCESS 
0808190 10C 110 ASCTOT: -BLKB 1 ; NO. OF ASCEFC'’S (REF COUNT) FOR CLUSTER A 
0000111 Q010D 111 OTHER_EFN: -BLKL 1 ; SAVE AREA FOR “‘OTHER THAN SUBJECT'’ EFN 
IE iit 112 CLUS_AASK: ~BLKL 1 ; CLUSTER MASK ; USED TO SET CLUSTER A 
119 O11 1135 CLUS STATE: -BLKL 1 ; STATE OF CLUSTER A 
00 0119 114 FLAGS: -BYTE 0 ; GEN. PURP. FLAGS; BIT DEFINITIONS ABOVE 
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ATS SYSTEM SERVICE TESTS SASCEFC (SUCC 16-SEP-1984 00: 56:45 AX/VMS Macro ¥04-00 Page 
CONDITION TABLES -SEP=1984 UETPSY.SRCJSATSSS50.MAR; 1 
14 116 .SBTTL CONDITION TABLES 
VA 118 ; aeeee CONDITION TABLES FOR ASCEFC SYSTEM SERVICE tee 
1A 1 p ‘ COND 1 LONG. <PERM>, ° 
A 1 <PERMANENT>, = 
WA 3 <TEMPORARY>, = 
90090001 136 124 LONG 1 : PERMANENT CLUSTER 
00000000 146 5 LONG 0 + TEMPORARY CLUSTER 
144 «1 § : COND 2, NOTARG, <PRE~EX1ST ING ASSOCIATION>,- 
144 ( 8 EVENT FLAG GROUP NOT ALREADY ASSOCIATED>, 
1441 <EVENT Lae GROUP ALREADY ASSOCIATED TO SUBJECT CLUSTER>,- 
144 ; <EVENT FLAG GROUP ALREADY ASSOCIATED TO NON-SUBJECT CLUSTER>,- 
04 1 : COND 3,NOTARG,<REFERENCE COUNT FOR SUBJECT CLUSTER>,- 
0206 1 <ZERO>,=- 
0204 134 <ONE>,=- 
0 04 5 <GREATER THAN ONE (TWO)>,- 
02 01 00 0 33 13? BYTE 0,1,2 
0258 139 ° COND 4,LONG,<EFN>, 
0258 140 <EVENT FLAGS 64-95 (EV FLAG GROUP 2)>.- 
: 38 141 <EVENT FLAGS 96-127 (EV FLAG GROUP 3)>,- 
00000040 O2AE 128 . LONG 64 : EVENT FLAG GROUP 
00000060 O82 144 LONG 96 : EVENT FLAG GROUP 
Oese 146 , COND 5,NULL 
00000000 148 .PSECT SATSSS5O,RD,WRT,EXE 


vO4~000" TATEGEUSTEMASERUAGE TESTS. sascerE (Succ rg-sep-tene gossgsas yanrune nacre YOK ess P28 
6 ~SBTTL TM_SETUP, TM CLEANUP 
: FUNCTIONAL DESCRIPTION: 
REQUIRED HOUSEKEEPING AT THE BEGINNING AND END, RESPECTIVELY, OF 
0 TEST MODULE EXECUTION 
8 CALLING SEQUENCE: 
0 BSBW TM_SETUP B8SBW TM_CLEANUP 
; INPUT PARAMETERS: 
0 NONE 
o IMPLICIT INPUTS: 
0 NONE 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
ALL PRIVILEGES ACQUIRED. 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 


TM_SETUP: : 
CLR 


OOSOSOOCOOoOoOoooooooooooooosoqoooooooooooooooooooooooo 
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52 D4 L Re : INITIALIZE 
534 CLRL OR ae CONDITION 

54 Oi CLRL RG t ce. TABLE 

554 CLRL sR’ Saeed INDEX 

mt bs CLRL = R6 Senge REGISTERS 

FFF 0 BSBW ODM PRIN NT TEST MODULE BEGIN MSG 
00000900" EF 00000000 EF DE MOVAL TEST aco. et tt TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 

90000000" BF F INSV #SUCTESS7#0,#3,MOD_MSG_ cod ; ADJUST STATUS CODE FOR SUCCESS 


MO 10,5 : KERNEL MODE TO ACCESS PHD 
MOVL  aaeTL ogke R9 GET PROCESS HEADER ADDRESS 
MOVAL eHose SAD AR PRIVMASK : GET PRIV MASK ADDRESS 
FROM BACK TO USER MODE” 

PRIV ADD, ALL * ; GET ALL PRIVILEGES 


59 0000000°9F 00 
Q0000000°EF 69 ODE 
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ERVICE TESTS SASCEFE (SUCC 16-SEP-1984 00:56:45 VAX.'VMS Macro V04- Page 
CLEANUP g-seF Po] 198 90:38:33 SET eey. SRE TSATSSSS0.MAR: 1 . 
: SSETPRN_S TEST_MOD_NAME_D ; SET PROCESS NAME 

SS_CHECR NORMAL CHECK TA tus CODE RETURNED FROM SETPRN 
3 SCREMBX_S CHANSABX CHAN, LOGNAM=CREPRN Ai MAILBOX FOR PROCESS 

yfAXnsG=# 20 PROMSK=A0 BUF GuO=# 

10 S$_CHECK NORMAL : CHECK NORMAL COMPLETION 
1 ScETCHN S$ MON ANCREXC 
1g PRIBUF =REXCHANINFO : GET CHAN INFO (UNIT NUMBER) 
1 $$_CHECK NORMAL : CHECK NORMAL COMPLETION 
14 MOUZWL KuBXCHANINFO+8+D1BSW_ UNIT|MBXUNIT ; SAVE MAILBOX UNIT NUMBER 
15 RSB : RETURN io® MAIN ROUTINE 
16 TM_CLEANUP: : 
1 SDELMBX_S MBXCHAN : DELETE TERMINATION MAILBOX 
18 BSBW  “~MOD_MSG_PRINT ; PRINT TEST MODULE END MSG 
1 RSB t RETURN TO MAIN ROUTINE 
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$5850 SATS SYSTEM SERVICE TESTS SASCEFC (SUCC Ig-SEP-1984 00: 56:45 VAX/VMS Ma cro V04- Page 9 
CONDITION SUBROUTINES - SETUP AND CLEANU -SEP-1984 04:32:01 CUETPSY.SRCJSATSSS .MAR;1 (1) 
16F 28 COND3 
00000255°EF44 95 O16F TSTB —- COND3_ ELR4] : IS REFERENCE COUNT ZERO ? 
10 12 01 : p BNEQU COND z t NO == ALL IS 0 ust EXIT 
01 33 91 01 CMPB) ORS # > YES == DOES con ond SPECIFY SAME CLUSTER ? 
fs 178 : BNEQU COND3X : NO == ALL IS JUST EXIT 
Q0000000'EF  O0000000'EF 9 Pla: OVB ONES, CONFLICT : YES == INDICATE’ cONFLI T 
0S 01 5 SB ; RETURN TO MAIN ROUTINE 
1 : COND3_CLEANUP: : 
05 0189 8 ; RETURN TO MAIN ROUTINE 
1BA COND4: : 
05 018A : RSB ; RETURN TO MAIN ROUTINE 
1 0 COND4_CLEANUP:: 
05 188 1 : RETURN TO MAIN ROUTINE 
18C 292 CONDS:: 
05 18¢ 9 RSB ; RETURN TO MAIN ROUTINE 
018D 294 CONDS_CLEANUP: : 
05 018D 295 RSB ; RETURN TO MAIN ROUTINE 
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SATSSS50 SATS SYSTEM SERVICE TESTS SASCEFC (SUCC 16-SEP-1984 00: AX/V S Mac Page 10 al 
v04=000 FORM_CONDS $F 382 8° 38:53 ueTPe Y.SRCISATS ¥oes 88. MAR: 1) 
: oe .SBTTL FORM _CONDS 
: i FUNCTIONAL DESCRIPTION: 
18E 1: FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT 
; é ; THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES. 
E 4 i CALLING SEQUENCE: 
18E : ; BSBW FORM_CONDS 
: 8 ; INPUT PARAMETERS: 
E 10 : NONE 
E le : IMPLICIT INPUTS: 
18— 314; 2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
18— 315; nfo R €OND TABLES 1,2,3,4,5, RESPECTIVELY 
018— 316: = 1,2,304,5 : 
018 317; ~ CONDX’T = TITLE TEXT FOR CONDX TABLE 
018E 18 : CONDX-TAB = ELEMENT TEXT FOR CONDX TABLE 
O18 319: CONDX7C = CONTEXT OF THE CONDX TAB 
4 E A ; CONDX7E = DATA ELEMENTS OF tHe CONDX TABLE 
0 E é ; OUTPUT PARAMETERS: 
O18 4 ; NONE | 
18E 6 ; IMPLICIT OUTPUTS: | 
: 8 : NONE | 
: 0 : COMPLETION CODES: | 
18 gi NONE | 
E 4 : SIDE EFFECTS: 
18E 6 ; NONE 
BR: 
18 § : 
1B 324 
ee r FORM_CONDS:: 
18— 34 $FAO_S MSG1_INP_CTL,FAO_LEN, FAO_DESC TESTNUM 
1AD 344 ; T CONDITIONS HEADER MSG 
FESO" 30 Q1AD 345 BSBW our PUT_MSG a PRINT IT 
14 04 91 018 46 CMPB ND17C,#NULL : is CONDITION 1 NULL ? 
3 12 1B 4 BNEQU + NO == CONTINUE 
0007 3 18 ‘an BRW FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
EF 11A°EF 1B “ MOVAL = COND G_A ; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
00000000" EF 1p9p0gi go" eFs2 06 HH MOVL COND I= ~TABE R24 MSG_B SAV VE ADDR OF COND 1 CURR TEXT ELT FOR FAO 
"EF 04 1CF ; MOVB  #CONDT_C,MSG_CTXT AVE CONDITION 1 CONTEXT FOR FAO 
1D6 MOV_VAL COND! _C. ond? “EER2].MSG_bATA : GIVE COND 1 DATA VALUE TO FAO 


15 
($ 


SATSSS50 SATS SYSTEM SERVICE TESTS Sascers UCC 16=SEP=1984 00:56:45 VAX/VMS Macro v0 Page 
y042000 FORM_CONDS ~$Fe 138% 89: 38:43 LUETPSY.SRCI Aires 9 MAR:1 
FE1B' 30 1€ 4 BSBW WRITE_MSG2 ; FORMAT AND WRITE CONDITION 1 MSG 
14 0 } i€ 5 CMPB #COND2_C ,#NULL t IS CONDITION 2 NULL ? 
} iE : BNEQU 2 + NO == CONTINU 
00A 1 IEA ons BRW FORM_CONDSX + YES <= SUBROUTINE IS FINISHED 
00000000' EF 90000144 EF DE OED § MOVAL CON 031 MSG.A ; SAVE ADDRESS OF CONDITION 2 TITLE FOR 
00000000'EF  0000015E'EFG3 p 1F8 360 MOVL  COND2-TABLR3],MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR 
00000000'EF 00 04 61 MOVB #COND2_C,MSG_CTX SAVE E CONDITION. 2 CONTEXT FOR FAO 
B 6¢ MOV_VAL COND2_C EOND2_ etR32, MSG baTAt GIVE COND 2 DATA VALUE TO FAO 
FDF2" 30 OB 6 BSBQ WRITE MSG FORMAT AND D WRITE CO CONDITION MSG 
14 00 91 E 364 CMPB OND3. C,#NULL : 18 CON 
: 1 11 365 BNEQU 30% + NO - OME ONT I NU 
00 6 \3 66 oss BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
00000000’ EF 90000204 °F DE 0216 368 MOVAL COND ss : SAVE ADDRESS OF CONDITION 3 TITLE FOR 
00000000'EF  00000229'EF44 oD 0 1 369 MOVL COND STAB Ra) MSG B SAV — ADDR OF COND 3 CURR TEXT ELT FOR 
00000000'EF 00 90 dD 370 ¥ ETx vE CON NDITION 3 CONTEXT FOR FAO 
0234 371 MOV_VAL CON p3_C mi ND3. etn, MSG DATA IVE COND 3 DATA VALUE TO FAO 
FDC9" 30 0234 es SB0 RITE-MSG Roar’ AND WRITE CONDITION MSG 
14 04 91 7 7 CMPB WCONDE C,#NULL ; ie" CONDITION . NULL ? 
53.13 3A 74 BEQLU FORM _CONDSX : YES == SUBROUTINE IS F HED 
00000000' EF 90000258 EF DE C 375 MOVAL CONDS_T,MSG_A + SAVE ADDRESS UOF CONDITION 4 Ty LE FOR 
00000000'EF  0000025D°EF4S 0D 47 376 MOVL COND4 TaBERS MSG_B ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR 
Q0000000°EF 04 90 0253 377 MOVB = #CON G_¢Tx AVE CONDITION 4 CONTEXT FOR FAO 
SA £8 MOV_VAL CONDS cw mt rit _ECR5],MSG_ BATA GIVE COND 4 DATA VALUE TO FAO 
FD97" 30 66 7 BSBQ  WRITE-MSG RMAT 1 SAND Ay he CONDITION 4 MSG 
“2 OF : 6 80 CMPB = #COND5_C,#NULL : sft 
21 13 026c 381 BEQLU FORM CON SX ; pe -- NOT NBROU Tl NE~ ts. FINISHED 
00000000'EF 000002B6'EF DE 0 6f Be MOVAL CONDS_T + SAVE ADDRESS OF CONDITION 5 TITLE FOR 
00000000"EF —_000002B6"E Fa D 7 8 MOVL  COND5 cTABERSS MSG_B ; SAVE ADDR OF COND 5 CURR TEXT ELT FOR 
00000000" EF 90 0285 4 MOVE ff G_CTX SAVE CONDITION 5 CONTEXT | FOR FAO 
28C 1H MOV_VAL CONDS_C COND. EtR6I, MSG_ batal : GIVE COND 5 DATA VALUE TO FAO 
FD71" 30 028C 386 Q — WRITE=MSG2 ; FORMAT AND WRITE CONDITION MSG 
O28F 387 FORM_CONDSX: 
28F 388 RSB ; RETURN TO CALLER 
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S18 FLAG ; SHOULD CONDITIONS BE PRINTED ? 

SBW  FORM_CONDS : YES -- FMT & PRINT ALL CONDS FOR THIS T.C. 
LRB ss FLAGS ; RE-INIT ALL FLAGS FOR NEXT TEST CASE 

LRB ASCTOT : CLEAR REFERENCE CNT FOR (SUBJECT) CLUST A 
5 iar : EV FLAG GROUP HAVE PRIOR ASSOCIATION ? 
FQLSséd1iS + NO == CONTIN 

MPL = #1, R3 : YES == PRIOR ASSOCIATION WITH CLUSTER A ? 
NEQ 7$ t NO <= MUST BE CLUSTER 

NCB —s ASC TOT : YES <= INCR REF COUNT FOR CLUSTER A 

OVAL CLUS_NAME_A,R7 : AND SET UP CLUSTER NAME FOR ASCEFC 

RB 9$ : GO ISSUE PRELIMINARY SERVICE 

Move _US_NAME_B,R7 ; SET UP CLUSTER NAME FOR ASCEFC 
MOVL _EFNERS] EFN MUST BE IN R10 FOR LATER CALL 
$ASCErc_$ EFN= 2345" anes (R7), PERM=PERMER R2] 

SS_CHECR NORM : Me ie SERVICE COMPLETION 

CMPL  #CLUS_NAME_A,R7 ; DID WE ASSOCIATE CLUSTER A? 

BNEQU 11$ : 4 SKIP BUIL LDING OF CLUSTER A 

BSSW  BUILD_CLUST : BUILD CLUSTER 

TSTB = EFLAG + I$ AN ERROR BEING PROCESSED ? 
BEQL 118 + NO == CONTINU 
BRW VERIF YX : YES <= RETURN IMMEDIATELY 


SUBB3 ASCTOT,COND3_ECR4],R7 ; CALC. NO. OF ASCEFC'S TO BE ISSUED 


TSTB sR?’ : ANY ASCEFC'S TO ISSUE ? 
BNEQU 14$ : YES == CONTINU 

RW 25$ : NO <= GO ISSUE SUBJECT ASCEFC 

CLRL = RB ; ASSUME SECOND COND 4 ELEMENT 

STL sR ; FIRST COND 4 ELEMENT ? 
BNEQU 16$ : NO -- IT'S SECOND COND 4 ELEME 

INCL RB : YES -=- USE R8 AS INDEX TO SND PLEMENT 
MOVL  EFNCR8],R10 : GET EFN OF “OTHER”, EV_FLAG GROUP 
MOVL  R10,OTHER_EFN ; SAVE EFN OF ' R 
BBSS #FLG_V CLROTHEV FLAGS. + INDICATE A PATER SDACEFC IS NEEDED 
SASCEFC_S EFN=R10, NAME=CLUS_NAME_ A, PERM=PERMER21 
sASSOC. 'OTHER'’ EV FLAG GROUP WITH CLUST A 

SS_CHECK NORMAL > CHECK FOR NORMAL COMPLETION 
BSBW  - BUILD_CLUST + BUILD CLUSTER A 

TSTB FLAG” + IS AN ERROR BEING PROCESSED ? 
BEQL + NO == CONTINUE 
BRW VERIF YX : YES <= RETURN IMMEDIATELY 

CMPB A R7 ; MUST WE DO ANOTHER ASCEFC 2 

BNEQU é a ; NO -- GO ISSUE SUBJECT ASCEFC 

V_CLAPROC, FLAGS INDICATE A LATER SDACEFC IS NEEDED 


BBSS 
SCREPRC § OR CNAMS CREPRN, IMAGE = \ nich 
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5042000 VERIFY =5SEP=1984 4 8 38:4 :01 LUETPSY.SRCJ 1o4¥8G588 MAR; 1 sw) 
BB 3 MBXUNT=MBXUNIT, QUOTA=QUOTALIST 
ED 4 ; ISSUE ASCEFC IN A CREATED PROCESS 
ED 5 $$_CHECK NORMAL + CHECK COMPLETION OF CREPRC 
4 : one SHTBER_S + SLEEP UNTIL CREATED PROCESS DOES SASCEFC 
4 8 ; : 
4 09 : #eeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *#eeee 
4 9 ’ SASCEFC_S EFNZEENCRS3 
4 1 AME=CLUS NAME_A, - 
4 1 PERN=PERMER?] 
00000000'8F 50 D1 043F 21h CMPL RO, #SS$_NORMAL : CODE RECEIVED = CODE EXPECTED ? 
13 044 15 BEQLU 3 t YES == CONTINUE 
00000000°EF  00000000'8F D0 044 216 MOVL #SS$_NORMAL, EXPV ; LOAD UP EXPECTED AND ... 
O0000000'EF 50 D0 045 17 RO,RECV RECEIVED VALUES, THEN EXIT 
45a 518 ERR. EXIT LONG, <INCORRECT STATUS CODE RETURNED FROM ASCEFC> 
rey 232 30$: 
04A9 Hi : ENSURE THAT gserEF $ CAN BE PROPERLY ISSUED ON CLUSTER A 
4A9 5 : ; sett THE TWO HI-ORDER FLAGS OF THE CLUSTER (1.E., 
4A? 534 : B43 OR Ne ootiary 
57 QOO002AE'EFSS DO 0409 525 ° MOVL. EFNCRSJ,R7 ; GET FIRST EVENT FLAG OF CLUSTER INTO REG 
57 1— CO 0481 526 ADDL2 # : COMP UTE 2ND-TO-HIGHEST EV FLA 
0484 527 SSETEF_S EFN=R7 t ATTEMPT TO SET F IN CLUSTER 
048D 528 SS_CHECK WASCLR 3 FLAG SHOULD HAVE LOCEN CLEAR (FROM ASCEFC) 
57 D6 O4EB 529 INCL R7 3 POIN REG 7 TO HIGHEST EV FLAG IN CLUSTER 
04ED 530 SSETEF_S EFN=R7 : SET ANOTHER FLAG FOR GOOD MEASU 
Babe 23) SS_CHECK WASCLR : CHECK FOR PRIOR CLEAR COMO TT ION 
05 4 338 : SET UP REG 7 TO CONTAIN THE MASK OF EXPECTED EVENT FLAG SETTINGS 
04 00000119'EF 02 EO 0524 ase 7 BBS #FLG_V_MKFORMED , FLAGS ,40$ BRANCH IF CLUS_MASK FORMED 
57 D4 «(052C 336 CLRL = R? éuB UBJECT ASCEFC GETS NEW CLUSTER; O MASK 
11 3 E 337 ad BRB 45$ : GO SET 2 MORE MASK BITS (FOR ier: S ABOVE 
5? 00000111"EF D0 03 9 39 can MOVL §CLUS_MASK,R7 ; USE EXISTING CLUS_MASK 
7 e2.nu 8 82 7 541 ‘ INSV _-#*B11,#30 #2 ,R7 TURN ON 2 HI-ORDER MASK BITS FOR SETEF'S 
053¢ 4g SREADEF_S EFN=EFNCRSS, STATE= =cLus_ STATE 
0550 «54 READ CURRENT STATE OF CLUSTER A 
2 50 £8 339 248 BLBS + CONTINUE IF NORMAL COMPLETION 
333 45 iad $S_ CHECK RO SaMAL : USE SS_CHECK TO TERMINATE TEST MODULE 
57 00000115'EF 01 : 1 278 7 CMPL chus_ STATE,R7 ; I$ CLUSTER A STATE = THAT EXPECTED ? 
68 13 0588 248 BEQLU : YES == CONTINUE WITH VERIFICATION 
00000000'EF 57 00 O58a 54 MOVE” R7, EXP ; NO =~ LOAD EXPECTED AND pe 
00000000'EF  00000115°EF 00 0591 50 MOVL CLUS STAT E,RECV RECEIVED VALUES, THEN EXIT 
i t pis ERR_EXIT LONG,<PRE-EXISTING CLUSTER STATE NOT OBTAINED AFTER ASCEFC> 
SF 5 ; 
5F5 554 : TO VERIFY THE ASCEFC REFERENCE COUNT, THE FOLLOWING CODE 
oF 33 : ISSUES A DACEFC FOR EACH ASCEFC ISSUED BY THIS TEST CASE. 
SF 28 *  $DACEFC_S EFN=EFNCRSJ : DISASSOCIATE SUBJECT ASCEFC 
605 38 Pin SS_CHECR NORMAL : MAKE SURE IT COMPLETED OK 
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$042000 VERIFY green T he beisoick Loe vey caescavecsco.man:1 2% 43, 
OA 00000119°EF 01 £4 aH 60 BBSC = #FLG_V_CLAPROC, FLAGS, 62$ ae tanites teerea tans tee ak 
05 00000119'EF 90 F4 6 9 é BBSC FUG. V_CLAOTHEV,FLAGS, 636 | ISSUE ANOTHER Stiitaet: IF NEC. : 
S <°49 ch 63 ois BRB 64 : ALL FLAGS CLEAR; REF COUNT 
0179 «(31 64 65 a BRW 80$ ; NEED A WORD'S WORTH OF BRANCH 
020p 31 ot 88 "  BRW 85$ : NEED A WORD'S WORTH OF BRANCH 
649 68 64$: 
649 3 : AT THIS POINT, ASCEFC REFERENCE COUNT SHOULD BE 0. 
649 ft t ISSUE ANOTHER ASCEFC TO CHECK PERM/TEMP SETTING OF CLUSTER A 
649 573° SASCEFC_S EFN=EFNCRSJ, NAME=CLUS NAME A ; ONE MORE ASSOCIATE 
661 57% SS_CHECR NORMAL HECK fT 
O68 275 SREADEF_S EFN= EFNERSJ, STATE=CLUS_ Cree ; READ CLUSTER A 
2E 50 £8 06A3 576 BLBS ONTINUE IF NORMAL COMPLETION 
O6A6 20 i SS_ CHECK NORMAL > USE SS_CHECK TO TERMINATE Test MODULE 
0000013C'EF42 05 bop 579 ~=—SS—sé‘«é*STSST'LLCCS~*«é«éPEERRMIECR2J : IS THIS A PERMANENT CLUSTER 
0¢ 12 0608 580 BNEGU 70$ : YES == KEEP EXPECTED STATE VALUE FRM ABOVE 
5? 4 depp 281 nt LRL sR? : NO -= EXPECT A ZERO CLUSTER 
57 Q0000115°EF D1 O6DF A "(MPL CLUS_STATE,R7 ; CLUSTER A STATE = THAT EXPECTED ? 
5D 613 «(0666 «= 584 BEQLU 71$ ~ : YES == GO FINISH UP 
00000000'EF 57 Dd 0668 585 MOVL R7 EXP t NO <= LOAD EXPECTED AND 
00000000'EF  00000115'EF DO O6EF 586 MOVL CLUS_STATE,RECV : RECEIVED VALUES, THEN EXIT 
GFA 387 ies ERR “EXIT Ls st UINEORRECT CLUSTER STATE AFTER DACEFC'S> 
0745 589 = — $DLCEFC_S NAME=CLUS_NAME_A ; CLEAR PERM INDICATOR IF PRESENT 
0738 590 SS_CHECR NORMA : EXPECT NORMAL COMPLETION 
| 780 591 SDACEFC S EFN=EFNCRS) t see AND DISASSOCIATE 
N78E 235 SS CH ‘pre e eeeeeoeaeeeaeeaenae 
018> 31 O7BC 59 BRO VERIFY : THIS TEST CASE IS COMPLETE 
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9042030 VERIFY mets 7 3: 33:67 UETPS Bey. Sar ISAT SSSS0.MAR: 1 wed | 
7BF 595 80S: 
7BF 96 SWAKE_S PRCNAM=CREPRN ; WAKE CREATED PROCESS TO GET DACEFC ISSUED 
7cE «459 SS_CHECK NORMAL HECK FOR NORMAL STATUS CODE 
7FC 38 SQTOW_S CHAN=MBXCHAN, F NC=#108 hehvbkK. 
7F 9 P1=MBXBUFF+8, P2=MBXBUF 
6 : A ... AND WAIT FOR IT TO SEND MAIL 
6 SS$_CHECK NORMAL : CHECK FOR NORMAL STATUS CODE 
FDDB 31 33 6 ¢ pa BRO 60$ + GO CHECK FOR MORE DACEFC'S 
56 604 ; SREADEF_S EFN=OTHER_EFN, STATE=CLUS STATE 
69 605 READ & CHECK CLUSTER BEFORE DACEFC 
2E 50 £8 869 6 : BLBS _RO, 86$ 3 CONTINUE IF NORMAL COMP 
86¢ 607 ae SS_CHECK NORMAL ; USE SS_CHECK TO TERMINATE TEST MODULE 
57 00000115'EF 1 SB9A 609 ~—sCMPL ih STATE,R7 ; CLUSTER A STATE = THAT EXPECTED ? 
13 08A1 610 BEQLU ; YES == GO DISASSOCIATE 
O0000000"Fr MosOHTIS*er bo bea ete MOVE CLUS STATE. RECV g MO RECEIVED VALUES, THEN’ EX 
0885 i$ as CEN “EXIT Luss TERE: “EXISTING cLusten §rv4 ATE NOT OBTAINED AFTER DACEF CD 
O90E 615 " « $DACEFC_S EF N= OTHER. EFN : DISASSOC "OTHER’’ EV FLAG GROUP FROM CLUS A 
091B 616 SS_CHEC ae 3; CHECK FOR NORMAL COMPLETION 
FCES 31 0949 617 matical RQ + GO CHECK FOR MORE FLAGS 
0S 094C 619 RSB ; RETURN TO CALLER 
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“SEP=1984 04: 
~SBTTL VFY_ CLEANUP 


+ 
; FUNCTIONAL DESCRIPTION: 


SY.SRCISATSSS (1) 


CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE 
EFFECT OF THOSE. ISSUED IN_THE VERIFY SUBROUTINE. VFY_ CLEANUP MUST 
ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY soe AN 
ERROR IS FOUND). A VFY CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT 
ONLY AFTER PERFORMING ALL OF Ts CLEANUP OPERATIONS; THIS IS REQUIRED 
IN_THE EVENT THAT VFY CLEANUP IS eis DURING ERROR PROCESSING, 
WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 
POSSIBLY DISCOVERING A SECOND ERROR. 


CALLING SEQUENCE: 

BSBW VFY_CLEANUP 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


Re, 36 y. He “e ls CURRENT CONDITION TABLE INDEX VALUES 
TABLES 1 22.344,5, RESPECTIVELY. 


FOR 2,3,4,5 : 
vege" E’= ADDRESS OF TABLE OF D A VALUES FOR CONDX 
TABCE. IF THE CONTEXT OF OABLE x IS A SYSTEM SERVICE 
ARGURENT. THE ARGUMENT NAME MAY BE USED AS A SYNONYM 
FOR CONDX_E. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 


VFY emer tt 


DLCEFC_S et CLUS_NAME_A CLEAR pm Ae Hts IF PRESENT ... 


CHECK COMPLETION 
RETURN TO CALLER 


EFC 
SDLCEFC"S N ty CLUS-NAME—B 
SS_CHEC 
Re 


m 


03 00000119°EF 
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* 

- BUILD_CLUST SUBROUTINE 

* THIS SUBROUTINE CREATES A 32-BIT CLUSTER MASK BY 

* CONCATENATING THE LOW-ORDER BYTES OF REGS R2-R5. 

* IT THEN SETS CLUSTER A EQUAL TO THE MASK BY 

: ISSUING THE PROPER COMBINATION OF 32 SETEF/CLREF'S. 

. INPUTS: 

: R2,R3,R4,R5 = CONDITION TABLE INDEX VALUES 

: R10 - ANY EFN IN CLUSTER A 

* OUTPUTS: 

® 

* CLUS_MASK = LONGWORD CONTAINING THE CREATED 
- CLUSTER MASK. 

* CLUSTER A = THE SUBJECT EVENT FLAG CLUSTER, 
: UPDATED TO LOOK LIKE CLUS_MASK. 
* FLG_V_MKFORMED - BIT IN FLAGS BYTE IS SET, IND- 
~ ICATING CLUS_MASK IS FORMED. 
: VOLATILE REGISTERS: 

* RO, 21, RB, RO 

* 

PIs TTI Titi titi t i tii ii titi iii titi iiititiiiititi iii titiiiiiit sy 


BUILD_CLUST: 
BBCS  #FLG_V_MKFORMED,FLAGS,10$ ; CONT IF CLUS_MASK NOT YET FORMED 


10$: 


3A 00000111'EF 


BRW BUILB_CLUSTX ; MASK ALREADY FORMED; JUST EXIT 
MOVB R5,CLUS_MASK ; BUILD 
MOVB R4,CLUS_MASK+1 o ee omnig 


MOVB R3,CLUS ow 


; THE FOLLOWING CODE SETS CLUSTER A EQUAL TO CLUS _MASK 


MOVL R10,R8 ESTABLISH FIRST EFN (EVENT FLAG NO.) 
CLRL R9 INIT OFFSET INTO CLUS_MASK 


ISSUE SSETEF IF GIT FOR THIS FLAG IS SET 
we» OTHERWISE, ISSUE SCLREF 

if NORMAL STATUS, PROCESS NEXT EVENT FLAG 
USE SS_CHECK TO fERMINATE TEST MODULE 


BBS R9,CLUS_MASK, 30S 
SCLREF_S EFN=R 

BLBS 4 

SS_CHECK NORMAL 


NNN NSN NN NSS SSSI NIA AA AAAAOAAOAOAOAOAOAOAOOOSAOAS OM 
Ww 
o 
tad 


WWINIINIGIDINIDPINPINYNININID) 2 OP MODOC OOOCOCOCOC OOOO WOOOOOOW@Odccccpc mon S 


MEAN @ 9 OO NDA NE WN O OOO NAME WN  O OD NOA UNE WWI SO OD NAUE WN 0 OONOUS WOO 


SET CURRENT EVENT FLAG 
IF NORMAL STATUS, PROCESS NEXT EVENT FLAG 
USE SS_CHECK TO TERMINATE TEST MODULE 


SSETEF_S EFN=R8 
BLBS ~ RO,40$ 
SS_CHECK NORMAL 


Sete 


, 
oO 
ad 
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v04 BUILD_CLUST SUBR NOGTINE mitt Pi 80: 33:37 UETPSY.SRCJSATS ¢590. MAR: 1 . (1) ve 
8 B6 O0A3 INCW ORR ; GET NEXT EFN 
FF7C 5901 Hh 86 ad Hf pate Nees #81 #1.R9.208 + GO DO NEXT EVENT FLAG 
05 OAG § "RSE ; RETURN TO CALLER 
740 END 
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Symbol table 


$SSCOND_A 
SSSSTRIAGS 
SSSSTRINGS2 
$$T1 


ASCTOT 
BUILD_CLUST 
BuiLD. =CLUSTX 


CHMRTN 
CHM_CONT 
CLUS_MASK 
CLUS_NAME_A 
CLUS NAME -B 
CLUS_STATE 
OMP™SC 
pT 

D1_C 
COND1— CLEANUP 


COND4_C 
COND4” CLEANUP 
COND4~E 


COND4~T 
COND4 "TAB 
CONDS 
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COND5~ CLEANUP 
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Symbol table EP=1984 6 38:63 UET PSY.SR e5ea sesso. MAR; 1 om (1) ) 
SS$_NORMAL eeeeeeee =X 4 
SS$-WASCLR eeeeeeee =X 4 
SUCCESS eeeeeeee =X 4 
SYSSASCEFC eeeereee 6X 4 
SYSSCLREF eeeneeee GX 4 
SYSSCMKRNL eeenenee GX 4 
SYSSCREMBX eeeeeeee GX 4 
SYSSCREPRC eeereeee GX 4 
SYSSDACEFC eereeere 6X 4 
SYSSDELMBX eererere 6X 4 
SYSSOLCEFC eeereree GX 4 
SYSSFAO ereeeeee xX 4 
SYSSGETCHN eeererer GX 4 
SYSSHIBER eeeeeeee GX 4 
SYS$Q10W eeereree GX 04 
SYSSREADEF aeeneeer GX 4 
SYSSSETEF eeererer GX 4 
SYSSSETPRN eeeeeree GX 4 
SYSSSETPRV eeneerer GX 4 
SYSSWAKE eereeere GX 4 
TESTNUM eereeeee§ KX 06 
TEST _MOD_ 00000000 RG =O 
TEST_MOD_NAME _D 00000009 R 0 
TEST _MOD_SUCC eereereer xX 04 

DDR eeeeneee = = 6X | 06 
Tm_CLEANUP 00000159 RG 04 
TM_ SETUP 00000000 RG 04 
VERIFY 00000290 RG 04 
VERIF YX 0000094 3 
VFY_ CLEANUP 0000094D RG 4 
WOR 00000002 G 
WRITE_MSG2 eeereree YX 04 

Per eee ewe ene anwee + 
: ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 <¢ Q.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA QOOOOOCF ¢ 207.) § ( ¢-} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA 000002B7 ( 695.) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SATSSS50 OOOO0A47 ( 2631.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
meres em mn ene nae eon eee eee + 
! Performance indicators : 

Phase Page faults cPU Time Elapsed Time 
Initialization 0: 04 


ae processing 
Synbol table sort 
Symbol table output 


32 

111 : 
“iS ae 
15 : 
18 : 


% 
5 


‘ 


i 


0: 0 


3 


ne 


m 


N 15 
SATSSS50 SATS SYSTEM SERV'CE TESTS SASCEFC (SUCC ya ¢ 90:38:83 AX/VMS Ma 
“Se 4 04: Y 


9 
VAX-11 Macro Run Statistics P-19 7:01 (CUETPSY. 


Psect synopsis output 8:9 700. :00:00. 

Cross-reference output 00:00. 00:00. 

Assembler run totals 62 0:00:13. :00:23. 

The working set_Limit was 1500 pages. 

52689 bytes (103 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 370 non-local - 89 Local symbols. 
740 source Lines were read in Pass 1, producing 30 object records in Pass 2. 

51 pages of virtual memory were used to define 41 macros. 


bones enw ee oR wore r ew nero n ee mae + 


! Macro Library statistics ! 


pom nw n aro won eer emo meneame $ 


Macro Library name Macros defined 
_8255SDUA28: See OE Te Bs 10 
_8255$DUA28: ay3-0Re LIB.MLB;1 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 7 


778 GETS were required to define 38 macros. 
There were no errors, warnings or information messages. 
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